home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / efs / dired-faces.el.z / dired-faces.el
Encoding:
Text File  |  1998-05-21  |  2.1 KB  |  84 lines
  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;;
  3. ;; File:          dired-faces.el
  4. ;; Dired Version: #Revision: 7.9 $
  5. ;; RCS:
  6. ;; Description:   rudimentary face customization support for dired
  7. ;; Author:        Mike Sperber <sperber@informatik.uni-tuebingen.de>
  8. ;; 
  9. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  10.  
  11. (provide 'dired-faces)
  12.  
  13. (require 'custom)
  14.  
  15. ;;; Variables
  16.  
  17. (defgroup dired nil
  18.   "Directory editing."
  19.   :group 'environment)
  20.  
  21. (defcustom dired-do-highlighting t
  22.   "Set if we should use highlighting according to filetype."
  23.   :type 'boolean
  24.   :group 'dired)
  25.  
  26. (defcustom dired-do-interactive-permissions t
  27.   "Set if we should allow interactive chmod."
  28.   :type 'boolean
  29.   :group 'dired)
  30.  
  31. (defface dired-face-marked '((((class color))
  32.                    (:background "PaleVioletRed"))
  33.                  (t (:underline t)))
  34.   "Face used for marked files."
  35.   :group 'dired)
  36.  
  37. (defface dired-face-flagged '((((class color))
  38.                    (:background "LightSlateGray"))
  39.                   (t (:underline t)))
  40.   "Face used for flagged files."
  41.   :group 'dired)
  42.  
  43. (defface dired-face-directory '((t (:bold t)))
  44.   "Face used for directories."
  45.   :group 'dired)
  46.  
  47. (defface dired-face-executable '((((class color))
  48.                   (:foreground "SeaGreen"))
  49.                  (t (:bold t)))
  50.   "Face used for executables."
  51.   :group 'dired)
  52.  
  53. (defface dired-face-setuid '((((class color))
  54.                   (:foreground "Red"))
  55.                  (t (:bold t)))
  56.   "Face used for setuid executables."
  57.   :group 'dired)
  58.  
  59. (defface dired-face-boring '((((class color))
  60.                   (:foreground "Gray65"))
  61.                  (((class grayscale))
  62.                   (:foreground "Gray65")))
  63.   "Face used for unimportant files."
  64.   :group 'dired)
  65.  
  66. (defface dired-face-permissions '((t (:background "grey75"
  67.                       :foreground "black")))
  68.   "Face used for interactive permissions."
  69.   :group 'dired)
  70.  
  71. (defface dired-face-socket '((((class color))
  72.                   (:foreground "magenta"))
  73.                  (t (:bold nil)))
  74.   "Face used to indicate sockets."
  75.   :group 'dired)
  76.  
  77. (defface dired-face-symlink  '((((class color))
  78.                   (:foreground "cyan"))
  79.                  (t (:bold t)))
  80.   "Face used to indicate symbolic links."
  81.   :group 'dired)
  82.  
  83. ;;; end of dired-faces.el
  84.